home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 7: Sunsite / Linux Cubed Series 7 - Sunsite Vol 1.iso / system / network / file-tra / rdist-6.1 / rdist-6 / rdist-6.1.0-linuxpl2 / support / rdistcf.pl < prev    next >
Encoding:
Perl Script  |  1994-02-14  |  3.4 KB  |  144 lines
  1. #! /usr/usc/bin/perl
  2. #
  3. # $Id: rdistcf.pl,v 6.6 1992/12/02 22:45:56 mcooper Exp $
  4. #
  5. # compact-rdist-output: takes output of cooper's rdist and sorts 
  6. # it by host, producing a more compact report for casual perusal.
  7. #
  8. # Based on suggestions by J Greely.  code by Steve Romig.
  9. # 
  10.  
  11. # Basic idea: for each line of rdsit output (assumed to be of form
  12. # "host: message", record the list of hosts that it was seen on.  Sort
  13. # the messages in order of increasing number of hosts, and print a
  14. # report that lists each set of hosts and the messages that appeared for
  15. # those hosts, running from least number of hosts to the greatest.
  16. #
  17. # In other words, if rdist was run on bird, tree, fish and fruit, the
  18. # output might look something like this:
  19. #
  20. # fish:
  21. #     installing /export/local/bin/less
  22. #
  23. # bird tree fruit:
  24. #     updating /export/local/bin/less
  25. #
  26.  
  27. #
  28. # Format to use for printing the start of the report.
  29. #
  30. format STDOUT =
  31. user:        @<<<<<<<<<<<<<<<<<<<<<<<<<
  32.              $user
  33. directories: ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  34.          $dirs
  35. ~~           ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  36.          $dirs
  37. hosts:         ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  38.              $hosts
  39. ~~           ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  40.              $hosts
  41. .
  42.  
  43. #
  44. # Format to use for body
  45. #
  46. format BODY = 
  47. ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<~~
  48. $host_string
  49. @*
  50. $host_data
  51.  
  52. .
  53.  
  54. #
  55. # Use this to sort the lists of hosts by increasing number of hosts.
  56. #
  57. sub increasing {
  58.     $host_number{$a} <=> $host_number{$b};
  59. }
  60.  
  61. if ($#ARGV == 2) {
  62.     $user = shift(@ARGV);
  63.     $dirs = shift(@ARGV);
  64.     $hosts = shift(@ARGV);
  65.     write;
  66.     print "\n";
  67. } elsif ($#ARGV != -1) {
  68.     die "usage: compact-rdist-output [user dirs hosts]\n";
  69. }
  70.  
  71. #
  72. # read lines of rdist output, deal with the types of messages that 
  73. # appear
  74. #
  75. $lineno = 0;
  76. while (<>) {
  77.     #
  78.     # ignore these
  79.     #
  80.     next if /: updating of /;
  81.     next if /: updating host /;
  82.     next if /^updating /;
  83.     next if /^notify /;
  84.     #
  85.     # if it's a host: line, save it...
  86.     #
  87.     if (/^(\S+):[ \t]+(.*)$/) {
  88.     $data = $2;
  89.     if (defined($seen{$data})) {
  90.         $seen{$data} .= " $1";
  91.     } else {
  92.         $seen{$data} = $1;
  93.     }
  94.     #
  95.     # otherwise print it at the top of the report
  96.     #
  97.     } else {
  98.     print "$_\n";
  99.     }
  100. }
  101.  
  102. #
  103. # for each distinct message, work out the list of hosts that it 
  104. # appeared on (sorted in alphabetical order) and update the 
  105. # report text for that list of hosts.
  106. #
  107. foreach $line (keys %seen) {
  108.     @host_list = sort split(/ /, $seen{$line});
  109.     $host_string = join(' ', @host_list);
  110.     $seen{$line} = $host_string;
  111.  
  112.     #
  113.     # save the number of hosts in this list - use that for 
  114.     # sorting the report later
  115.     #
  116.     $host_number{$host_string} = $#host_list;
  117.     #
  118.     # append this message to the text for this list of hosts
  119.     #
  120.     $host_text{$host_string} .= "    " . $line . "\n";
  121. }
  122.  
  123. $: = " \n";    # Break characters
  124. $~ = BODY;    # Format to use
  125.  
  126. #
  127. # sort the host lists by increasing number, and print the 
  128. # report for each.  The text data is sorted numerically by
  129. # line number.
  130. #
  131. foreach $host_string (sort increasing keys %host_number) {
  132.     #
  133.     # Split the text data into an array, then do a sort
  134.     # and put the result back into a normal string variable.
  135.     #
  136.     $host_data = join("\n", sort split(/\n/, $host_text{$host_string}));
  137.  
  138.     # print the data
  139.     write;
  140. }
  141.  
  142. exit 0;
  143.  
  144.